 	TOP
 BYTE AA
 INT IAA
 BYTE BB
 INT IBB
 BYTE CC
 INT ICC
 INT IDD
 BYTE DD
 BYTE NL
 BYTE LF
	BEGINMAIN(AC,IAV)
		MS 'BEGIN T04'
 NL=+013
 LF=+010
 GOSUB CR
 AA=+003
 BB=AA
 CC=AA!=BB
 IF CC
	MS 'BYTE TRAN'
 ENDIF
 MS '111111111'
 IAA=+12345
 IBB=IAA
 CC=IAA!=IBB
 IF CC
	MS 'INT TRANS'
 ENDIF
 MS '222222222'
 ICC=+00235
 BB=ICC
 AA=+235
 CC=AA!=BB
 IF CC
	MS 'INT TO BY'
 ENDIF
 MS '333333333'
 IBB=AA
 ICC=+00100
 AA=+100
 IBB=AA
 CC=IBB!=ICC
 IF CC
	MS 'BYT TO IN'
 ENDIF
 MS '444444444'
 IAA=+00000
 IBB=+00005
 IBB=IAA-IBB
 CC=IBB<=IAA
 IF CC
 ELSE
	MS 'INT<=.-<0'
 ENDIF
 MS '555555555'
 CC=IBB<!IAA
 IF CC
 ELSE
	MS 'INT<!.-<0'
 ENDIF
 MS '666666666'
 IAA=+00005
 ICC=-IAA
 CC=ICC!=IBB
 IF CC
	MS 'INT=-INT.'
 ENDIF
 MS '777777777'
 IAA=+10256
 IBB=+00003
 ICC=IAA*IBB
 IDD=+30768
 CC=IDD!=ICC
 IF CC
	MS 'INTMUL+*+'
 ENDIF

 GOSUB CR
 MS '888888888'
 IBB=-IBB
 ICC=IAA*IBB
 IDD=-IDD
 CC=IDD!=ICC
 IF CC
	MS 'INTMUL+*-'
 ENDIF
 MS '999999999'
 IAA=+00030
 IBB=+00040
 IAA=IAA*IBB
 ICC=+01200
 AA=ICC!=IAA
 IF AA
	MS 'MUL.X=X*.'
 ENDIF
 MS '000000000'
 IAA=+00030
 IBB=IAA*IBB
 AA=ICC!=IBB
 IF AA
	MS 'MUL.X=.*X'
 ENDIF
 MS 'AAAAAAAAA'
 IAA=IAA*IAA
 ICC=+00900
 AA=IAA!=ICC
 IF AA
	MS 'MUL.X=X*X'
 ENDIF
 MS 'BBBBBBBBB'
 IAA=+30003
 IBB=+00003
 IAA=IAA/IBB
 ICC=+10001
 AA=IAA!=ICC
 IF AA
	MS 'DIV.X=X/.'
 ENDIF
 MS 'CCCCCCCCC'
 IBB=IAA/IBB
 ICC=+03703
 AA=ICC!=IBB
 IF AA
	MS 'DIV.X=./X'
 ENDIF
 MS 'DDDDDDDDD'
 ICC=ICC/ICC
 IAA=+00001
 AA=IAA!=ICC
 IF AA
	MS 'DIV.X=X/X'
 ENDIF
 GOSUB CR
 MS 'EEEEEEEEE'
 IAA=+10256
 IBB=+00016
 ICC=IAA/IBB
 IDD=+00641
 CC=IDD!=ICC
 IF CC
	MS 'INTDIV+/+'
 ENDIF
 MS 'FFFFFFFFF'
 IBB=-IBB
 ICC=IAA/IBB
 IDD=-IDD
 CC=IDD!=ICC
 IF CC
	MS 'INTDIV+/-'
 ENDIF
 MS 'GGGGGGGGG'
 IBB=+00017
 ICC=IAA/IBB
 IDD=+00603
 CC=ICC!=IDD
 IF CC
	MS 'FRCDIV+/+'
 ENDIF
 MS 'HHHHHHHHH'
 IAA=-IAA
 ICC=IAA/IBB
 IDD=-IDD
 CC=ICC!=IDD
 IF CC
	MS 'FRCDIV-/+'
 ENDIF
 MS 'IIIIIIIII'
 AA=+001
 BB=+001
 CC=AA&BB
 IF CC
 ELSE
	MS '.&. OR IF'
 ENDIF
 MS 'JJJJJJJJJ'
 BB=+000
 CC=AA&BB
 IF CC
	MS '.&.(ORIF)'
 ENDIF
 MS 'KKKKKKKKK'
 CC=AA?BB
 IF CC
 ELSE
	MS '.v....101'
 ENDIF
 MS 'LLLLLLLLL'
 AA=+000
 CC=AA?BB
 IF CC
	MS '.v....000'
 ENDIF
 MS 'MMMMMMMMM'
 CC=!AA
 IF CC
 ELSE
	MS '.!.....01'
 ENDIF
 MS 'NNNNNNNNN'
 BB=+001
 CC=AA-BB
 DD=!CC
 IF DD
	MS '.!.....10'
 ENDIF
	GOSUB CR
 MS 'ENDOF T04'

 ENDMAIN
	SUB CR
 WRITE NL
 WRITE LF
 ENDSUB
 BOTTOM
 FINIS
